﻿Public Class ctlRelationship

    Private oRelationship As SponsorshipLogic.Relationship

    Public Property Relationship As SponsorshipLogic.Relationship
        Get
            Return oRelationship
        End Get
        Set(ByVal value As SponsorshipLogic.Relationship)

            oRelationship = value
            If IsNothing(value) Then

                MsgBox("value is nothing")
            End If
            If Not IsNothing(oRelationship) Then
                txtSponsor.Text = oRelationship.Sponsor.Name
                txtChild.Text = oRelationship.Child.Name
            Else
                'Debug.Assert(False)

            End If
        End Set
    End Property



End Class
